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Some PDF6 
incorporate MIDAS 
you do this, usine files found on the LISP SYSTIH microtape. 



LISP users have felt the need for a way to 
subroutines into LISP* LISP has been changed to let 



1. ASSEMBLING 

You write a routine for LISP in much the same way that you 
write any other MIEAS relocatable subroutine. Tou must, however, 
observe the constraints imposed by LISP'S allocation and use of 
accumulators , and its method of handling input, output, and Interrupts. 
In addition, you require linkage to LISP before your routine can 
operate properly: The entry point(s) of the subroutine must be rut on 
the property list(s) of the appropriate atom(s), aod the address fields 
of instructions pointin* to other routines, to list structure, or to 
other LISP data structures nust be set properly. This is done when 
LISP begira operation: after allocation, tut tefore going into its 
listen loop. 

We provide eight rcacros to ease the job of creating such 
linkages: SUBR, JSUBR, LSUBR, MACRO, QUOTE, E, SPECIAL, and SYM. 

If you write "SU3R name" at a location ^ in your routine, LISP 
will subsequently ascribe the property SU3R to the atom ffune . with 
entry location a. Similar remarks apply to the use of 7SUBR f ISUBR, 
and MACRO. 

The significance and use of the other four macros is perhaps 
best conwunicated through examples: 

1. An instruction like "MOTCI A t QUOTE{X Y 2)" will be 
assembled as *HOVEI A,0*. At link time, however, LISP will insert the 
location of the list (X Y 2) into the address field of the instruction. 

2. Suppose that the atom K)0 has the properties shown in 
51*ure 1. Tien the instructions "HOVEI A,QUCTE TOO", "MOVEM B,SPECIAL 
SCO", *PUSHJ P,SYM 5O0", and "CALL Z TOO" will each be assembled with a 
zero address field, which will be modified at link time to be b, £, 
106, and 101, respectively. 




Jltfure 1 



You should note that: 
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1. Of these macros, only QUOTE may be used with a nonatomic 

argument. 

2. 1 can only be used with a routine which is known as a sUBfl, 

ISUBR, LSUBR, or MACRO to LISP at link tine. 

3. SPECIAL will cause a value cell to be created for the atom 
raised, if it does not already have one. 

4. If your routine must do I/O in a more intlaate manner than 
aerely calling subroutines such as print , read , or uwrite. then consult 
a system programmer before blindly using instructions such as .OPES or 
.IOT. 

Appendix I naps LISP's allocation and use of the accumulators. 

Appends II lists code which properly defines the eight macros, 
as well as defining the UUOs CALL, JCALL, CALLF, and JCALLF, and 
defining the accumulators A, B, C, T, and P. This code appears as the 
file LISP MACROS on the LISP SYSTEM tape. We suggest that you serge it 
in at the beginning of your program. 

If you are mystified, peruse A.I. Memo 116, PDP-6 LIS? (LISP 1.6) 
January 1967. 

2. LOADIH3 

Your programs oust be loaded together with LISP by STUB, 
ifere is a recipe: 

1. lave the LISP SYSTEM tape on drive 2 (say), and hare on 
drive 3 (say) a tape bearing the relocatable binary files {e.g. 100 3AR 
and 3AR FOO) that you wish to load. 

2. Perform the following incantation: 

STIlffilii 

JLISPSO<.LIHXL> 
3MJO0 BAR$LMEAR TOOSLSS 
2MLISP BIKSLTD 
Alternatively, one nay use the files "1" and "2" on the LISP 
SYSTEM tape, typing: 

STINKlH 

zusaS 

3MFOO BARJLMBAR K»SL$$ 
2K2$5S$ 
The process will terminate with LISP and DDT loaded, with 
control in DDT. When you are ready, start LISP as usual with "SG". 
LISP will begin by allocating storage, then linking your routines into 
the system. If an error occurs In processing a macro statement of the 
form mac expr . LISP will print out the vague coxment "LINKAGE ERROR 
LINK IS3 TO expr". After processing all linkages, LISP will go into its 
listen loop. 

3. ACKKOWLZIGMEOTS 

Most of the ideas for this hack were suggested by Stuart 
ftlson. The other backers contributed many useful suggestions and cuch 
help. 



LISP LINKAGE PEAHJRE PAGE 4 







c 


ML 


1 


A" 


7. 


B" 


Z 


C" 


4 


AR1 


5 


ATP A 


6 


r 


7 


TT 


10 




11 


5 


12 


11 


13 


B 


14 


P* 


15 


1 


16 


IT 


17 


S? 



APPENDIX I 
LISP ASSIGNMENT A1ID CIS* 0? ACCUMULATORS 



AC ftne f Jse 



Atom head for Nil. 

»lue of functions; ar« 1; larked from* 

Are 2; marked fro*. 

Are 3; narked free. 

Ar&4; marked fron. 

Are £; Barked from. 

Used in calls to ISUBIfc; narked frot* 

terked from, 

y I marked; clobbered by £art*£e collector* 

Ditto, 

Ditto. 

*bt (narked. 

Rishdown list ac. 

free storage list ac* 

PUll word space ac. 

Special pdl ac* 
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APPESDIX II 
CODE ?OR DEFIMUG HAC10S. DUOS, AMD ACS 

RrTiOT ATA P*T 

IRP HAC,,lSOBS,fSUBR, LSU3H,MACBO,QDOTE,SPECIAL,E,STMnTPE,,tO,l,E,3,4,5,6,?) 

DEFINE MAC NAME/HERE.OLDEttD 

HER&.-IFGE TYPF-4 1 
EQUALS OLDEKD SSD 
DEFIHS END 

HERE,,. LINK LIST" 

.lIMCLXSr=*.-l 

TYPE 29.+ASCII /QHhHZ / 
EQUALS END OLDEHD 
EXPUNGE HSRE.OLDEKD 
END 
TERKX1 
TERM IK 
TERHIK 

CALL=74000 M 
JCALL=?5C00,, 
CALLP7eO0C,, 
JCALLP7700D,, 

.GLOBAL A 3 C ? T 



